home *** CD-ROM | disk | FTP | other *** search
/ U.S. Robotics Connections 2 / US Robotics Connections.iso / pc / sourcepc / csdemocd.dir / 00025.ls < prev    next >
Encoding:
Text File  |  1996-01-06  |  919 b   |  45 lines
  1. on startMovie
  2.   global gLaunchPath
  3.   set the exitLock to 1
  4.   if the soundLevel = 0 then
  5.     set the soundLevel to 1
  6.   end if
  7.   set the keyDownScript to "okToquit"
  8.   set gLaunchPath to the moviePath
  9. end
  10.  
  11. on oktoQuit
  12.   if the key = "" then
  13.     repeat with x = 1 to 48
  14.       puppetSprite(x, 0)
  15.     end repeat
  16.     set the keyDownScript to EMPTY
  17.     go("quitScreen")
  18.   else
  19.     if the key = "0" then
  20.       set the soundLevel to 0
  21.     end if
  22.     if the key = "1" then
  23.       set the soundLevel to 1
  24.     end if
  25.     if the key = "2" then
  26.       set the soundLevel to 2
  27.     end if
  28.     if the key = "3" then
  29.       set the soundLevel to 3
  30.     end if
  31.     if the key = "4" then
  32.       set the soundLevel to 4
  33.     end if
  34.     if the key = "5" then
  35.       set the soundLevel to 5
  36.     end if
  37.     if the key = "6" then
  38.       set the soundLevel to 6
  39.     end if
  40.     if the key = "7" then
  41.       set the soundLevel to 7
  42.     end if
  43.   end if
  44. end
  45.